home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / disk / cdrom / GroovyPlayer.lha / Groovy_Install_E < prev    next >
Text File  |  1997-02-19  |  8KB  |  232 lines
  1. ;*******************************************************
  2. ;*    $VER: GroovyPlayer Install 1.08 (19.02.97)       *
  3. ;*               Copyright ©1996 Alan                  *
  4. ;*           Install script by Stef & Alan             *
  5. ;*                                                     *
  6. ;*               English version V1.08                 *
  7. ;*                                                     *
  8. ;*******************************************************
  9. ;* English section area *
  10. ;************************
  11. ((if @language "english")
  12.         (set @default-dest "sys:")
  13.         (set #echotxt "echo \"Working on installation...\"\n" )
  14.  
  15.  
  16.  
  17.         (complete 0)
  18. ;************************
  19. ;The text message area                       
  20. ;************************
  21.         (set #Intro-Txt
  22.             (cat "Welcome to GroovyPlayer installation.\n\n"
  23.             "\n"
  24.             "Thank you very much for your registration.\n"
  25.                 "I hope you will enjoy using this program.\n\n\n\n"
  26.             "                                          Alan\n"
  27.             )
  28.         )
  29.         (set #Guide-Txt
  30.                 (cat "\n\nI recommend you to read the AmigaGuide documentation,\n"
  31.                 "which contains some information especially useful\n"
  32.                 "for beginners, although I think everyone will more easily\n"
  33.                 "find out about various functions from the AmigaGuide help."
  34.                 )
  35.         )
  36.         (set #Warning-Txt
  37.             (cat "WARNING\n\n\n"
  38.             "You will need 0.5 Mbyte of free HD space\n"
  39.                 "and 250Kbyte of free memory to complete the installaton\n"
  40.             "(If necessary, you can delete files from the\n"
  41.                 "destination disk to make room for GroovyPlayer).\n"
  42.             )
  43.         )
  44.         (set #Path-Txt
  45.             (cat "Select destination directory\n\n"
  46.             "A drawer named GroovyPlayer will be created here.\n"
  47.             )
  48.         )
  49.         (set #Decrunch-Txt
  50.             (cat "Decrunching `CD Titles` file to RAM:  \n\n"
  51.             "This catalog contains 816 various style CD's,\n"
  52.                 "from reggae to rock and even some Aminet CD's.\n"
  53.                 "When inserted, these CD's will be automatically\n"
  54.                 "recognised by GroovyPlayer.\n"
  55.                 )
  56.         )
  57. ;************************
  58. ; End text message area
  59. ;************************
  60.         (message #Intro-Txt)
  61.  
  62.         (message #Warning-Txt)
  63.             (set target_dir
  64.         (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  65.             )
  66.         )
  67.         ;Making the directories
  68.         (set directory_name (substr target_dir (- (strlen target_dir) 1) 1))
  69.         (set Groovy_dir (tackon target_dir "GroovyPlayer"))
  70.              (if (NOT (exists Groovy_dir))
  71.                  (makedir Groovy_dir))
  72.         (set doc_dir (cat Groovy_dir "/Doc"))
  73.              (if (NOT (exists Doc_dir))
  74.                  (makedir Doc_dir))
  75.         (complete 10)
  76. ;*************************************************
  77. ; Copy the guide files to destdir/GroovyPlayer/doc
  78. ;*************************************************
  79.         (message #Guide-Txt)
  80.         (set @default-dest target_dir)
  81.                 (copyfiles
  82.                         (prompt "\nCopying English documentation for GroovyPlayer...")
  83.                         (help @copy-files-help)
  84.                         (source "GroovyPlayer_E.guide")
  85.                         (dest doc_dir)
  86.                         (confirm)
  87.                 )
  88.  
  89.         (set @default-dest target_dir)
  90.                 (copyfiles
  91.                         (prompt "\nCopying Hungarian documentation for GroovyPlayer...")
  92.                         (help @copy-files-help)
  93.                         (source "GroovyPlayer_M.guide")
  94.                         (dest doc_dir)
  95.                         (confirm)
  96.                 )
  97.         (complete 20)
  98. ;***************************************
  99. ; Copy GroovyPlayer fonts to FONTS:
  100. ;***************************************
  101.         (
  102.             (copyfiles
  103.                         (prompt "\nCopying GroovyPlayer fonts to your FONTS: assign...")
  104.                 (help @copyfiles-help)
  105.                 (source "Fonts/")
  106.                 (dest "FONTS:")
  107.                         (pattern "#?")
  108.                 (confirm)
  109.             )
  110.         )
  111.         (complete 30)
  112. ;***************************************
  113. ; Copy GroovyPlayer locale to LOCALE:
  114. ;***************************************
  115.         (
  116.             (copyfiles
  117.                         (prompt "\nCopying catalogs to your LOCALE: assign...")
  118.                 (help @copyfiles-help)
  119.                 (source "Locale/")
  120.                 (dest "LOCALE:")
  121.                         (pattern "#?")
  122.                 (confirm)
  123.             )
  124.         )
  125.         (complete 35)
  126. ;******************************************
  127. ; Install GroovyPlayer main program
  128. ;******************************************
  129.         (
  130.             (copyfiles
  131.                         (prompt "\nCopying GroovyPlayer to the destination directory...")
  132.                 (help @copyfiles-help)
  133.                 (source "GroovyPlayer")
  134.                 (dest Groovy_dir)
  135.                 (confirm)
  136.             )
  137.         )
  138.         (complete 40)
  139. ;******************************************
  140. ; Install the GroovyPlayer.info
  141. ;******************************************
  142.         (
  143.             (copyfiles
  144.                         (prompt "\nCopying GroovyPlayer's icon file to the destination directory...")
  145.                 (help @copyfiles-help)
  146.                 (source "GroovyPlayer.info")
  147.                 (dest Groovy_dir)
  148.                 (confirm)
  149.             )
  150.         )
  151.         (complete 45)
  152. ;**********************************
  153. ; Install iconify icon
  154. ;**********************************
  155.         (
  156.             (copyfiles
  157.                         (prompt "\nCopying GroovyPlayer appicon to ENVARC:...")
  158.                 (help @copyfiles-help)
  159.                 (source "envarc/")
  160.                 (dest "ENVARC:")
  161.                 (pattern "#?")
  162.                 (confirm)
  163.             )
  164.         )
  165.         (run (cat "resident" c:delete))
  166.         (complete 50)
  167. ;***********************
  168. ; Decrunch CD Titles.lzx
  169. ;***********************
  170.  
  171.         (message #Decrunch-Txt)
  172.  
  173.         (
  174.             (copyfiles
  175.                 (source "CDTitles.lzx")
  176.                 (dest "RAM:")
  177.                 (pattern "#?")
  178.             )
  179.         )
  180.         (set decrunch "SYS:C/LZX >CON:0/0/320/60/LZX/AUTO -a -x x RAM:CDTitles.lzx #? ")
  181.         (set decrunch (cat decrunch Groovy_dir))
  182.         (set decrunch (cat decrunch "/"))
  183.         (run decrunch)
  184.         (complete 80)
  185. ;**********************************************
  186. ; Copy RAM:CD Titles directory to destination
  187. ;**********************************************
  188.         (
  189.             (copyfiles
  190.                         (prompt "\nCopying CD title collection...")
  191.                 (help @copyfiles-help)
  192.                 (source "RAM:")
  193.                 (dest Groovy_dir)
  194.                 (pattern "CDTitles.LZX")
  195.                 (confirm)
  196.             )
  197. ;       )
  198. ;       (complete 90)
  199. ;        (message "\nA small surprise...")
  200. ;        (run "assign GPSHOW: Presentation")
  201. ;        (run "ScalaMMPlayer GroovyPlayerDemo_E.script")
  202. ;        (run "assign GPSHOW: remove")
  203. ;       (
  204.     (set doc1 (askchoice
  205.                 (prompt "Please choose the documentation you wish to read now:")
  206.                 (help @askchoice-help)
  207.                 (choices "Hungarian documentation" "English documentation" "Nothing :-)")
  208.                 (default 1)
  209.  
  210.                   )
  211.         )
  212.  
  213. ;****************************
  214. ; Let the user read a guide file
  215. ;****************************
  216.          (if (= doc1 0)
  217.                  (run ("SYS:Utilities/MultiView GroovyPlayer_M.guide"))
  218.  
  219.          )
  220.          (if (= doc1 1)
  221.                  (run ("SYS:Utilities/MultiView GroovyPlayer_E.guide"))
  222.  
  223.          )
  224.         )
  225. ;****************************
  226. ; Delete decrunched directory
  227. ;****************************
  228.  (run ("c:delete ram:CDTitles.lzx noreq"))
  229. )
  230.         (complete 100)
  231. (exit)
  232.